Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/hf.dir/00052_user.ls

Text File | 1996-04-19 | 1.0 KB | 37 lines

on keyUp
  set cr to numToChar(13)
  if the key = cr then
    select()
  end if
end

on select
  global gHFsearchcastmember
  duplicate(cast 11, cast 64)
  set the name of cast 64 to "user2"
  set the text of cast 64 to EMPTY
  set key to the text of cast 52
  if charToNum(key) > 64 then
    set gHFsearchcastmember to 64
    set the castNum of sprite 34 to cast 64
    set key to char 1 to length(key) - 1 of key
    put "length of key " & length(key)
    set vName to "athletelistbck"
    set the itemDelimiter to numToChar(13)
    set vNum to the number of cast vName
    set vlines to the number of lines in field vNum
    repeat with vcounter = 1 to vlines
      if item vcounter of field vNum contains key then
        put item vcounter of field vNum & numToChar(13) after field "user2"
      end if
    end repeat
    put "end of select script"
    puppetSprite(34, 1)
    set the castNum of sprite 34 to cast "user2"
    updateStage()
  end if
  set the text of cast 52 to EMPTY
  set key to EMPTY
  put "the end of the select script"
end